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; 1 0001 0 MODULE setproces ( IDENT = ‘'v04-000' 

; : 000¢ 0 ADDRESS ING. MODE (EXTERNAL = GENERAL)) = 

; i Ba87 : BEGIN 

: 5 Bebe : PRPS SSSSS SITET ISS TT ET TCT TTT PTC CCT C TTT T IIIT TT TELAT TTT iiiiiitt) 
: 6 '® * 
; 7 hd 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
3 8 0008 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 16 oie ; ‘* ALL RIGHTS RESERVED. * 
3 ' + 
a. 00117 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
3 i Belg 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCK LICENSE AND WITH THE * 
2:3 0015 1 !* INCLUSION OF THE ABOVE “gt NOTICE. THIS SOFTWARE OR ANY OTHER * 
. 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s % 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: \$ Bots : .* TRANSFERRED. * 
. ‘tt ® 
> 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $9 bose : im CORPORATION. > 
z 't ® 
; a it 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR Oe. SAIL ETF OF ITS * 
é 23 002 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
: 26 0024 1 !« * 
; 2 0025 1 !# * 
3 26 0026 1 See Ree R AREER AAEAAEAAAAEEE AEE RAAAAEAAEAEARARERAARRREREEREEe 
s aT 0027 1 

; wa 0028 1 !++4 

3 29 0029 1 ! FACILITY: SETPRO Command 

; 0030 1: 

: 31 0031 1 ! ABSTRACT: 

ci 0032 1! 

ee. 0033 1! This module sets various parameters for a process. 

; 0034 1! 

ae 0035 1 ! ENVIRONMENT: 

te | 0036 1! ; 

eo oe 0037 1! VAX/VMS operating system, user mode 

> 0038 1! 

; 0039 1 ! AUTHOR: Gerry Smith 12-Jan-1983 

; & 0040 1! 

: «(41 0041 1 ! Modified by: 

: € 0042 1! 

3; 00435 1! v03-007 AEWO002 Anne Warner 05-Jul-1984 

3; #4 0044 1! Change ALTPRV to ALTPRI from previous fix because 

: rh Bree : there's no such creature as ALPTRV. 

3 47 0047 1! v03-006 AEWO001 Anne Warner 04-Jun-1984 

; 0048 1! Add non-fatal error message SET$_NOPRIO indicating 

; 49 0049 1! that the process priority could not be raised above 

: 50 0050 1! base erie ity. because it does not have the user 

3 2) itt ; privilege at PRV. (actually its ALTPRI - see above) 

: 3g b08$ 1! v03-005 GASO182 Gerry Smith 19-Sep-1983 

: «54 0054 1! Change the way that privileges get set. Instead of 

; 3 0055 1! disabling all privileges and then rewenab’ ing th them, 

= 0056 1! figure out which priv leges to enable, and whic 

3 57 0057 1! to disable, and then do it explicitly. 
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16-Sep-1984 00:45:54 VAX-11 Bliss-32 V4.0-742 Page 2 

14-Sep-1984 12:09:16 CCLIUTL.SRCISETPROCES.832;1 (1) 
v03-004 ag od Gerry Smith 25-Jul-1983 


Use the real process "1D of the process, rather than 
what the user input. 


v03-003 wMC0001 Wayne Cardoza 11-Apr-1983 
Add SET PROC/DUMP. 

v03-002 GAS0113 Gerry Smith 30-Mar-1983 
Collect and validate all qualifiers and values first, 


then make all the modifications. 


v03-001 GASO112 Gerry Smith 29-Mar-1983 
Remove last traces of the old command dispatcher. 
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Sbae 006 12-08-1382 90:09:36 tet iute sre SETPROCES.832;1 . (2) V 
; re 0074 1! 
: f Oe ee : Include files 
: 78 $038 1 LIBRARY *SYSSLIBRARY:LIB'; ! VAX/VMS common definitions 
;. B78 1 
;. @® 0079 1 
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~ = 8080 
‘+ & 081 
; BS Bons 
ae 00 

; 8 0084 
; | «6ST 0085 
; 88 R088 
; 008 
; 0088 
; «691 0089 
3 2 Reee 
; 94 8692 
; 9 009 
; 0094 
ame oe 0095 
; | 98 0096 
3 0097 
3 0098 
3 0099 
3 010 
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Table of contents 


FORWARD ROUTINE 
set$process : NOVALUE, 
get_name : NOVALUE 
get_quals : NOVALUE, 
set_process : NOVALUE, 
set_dump : NOVALUE; 


! 
External routines 


EXTERNAL ROUTINE 
Lib$Scvt_htb, 
LibScvt_dtb, 
prv$setpriv, 
cli$get_value, 
cli$present; 


] 
External globals 


EXTERNAL 
ctl$gq_procpriv : VECTOR(2) 
ctl$gl-phd : REF BLOCKL,BYfE); 


' 
: Declare the final status return. 


EXTERNAL 
setSexit_status; 


! 
: Declare some shared messages 


SSHR_MSGDEF (SET,119, LOCAL, 


(invquaval, error)); 


! 
: Declare Literals defined elsewhere 


EXTERNAL LITERAL 
cli$_absent, 
cli$_negated, 
set$_writeerr, 
set$_noprio, 
set$_prioset, 
set$_noname, 
set$_nameset, 
set$_notsuspnd, 
set$_resumed, 
set$_notresumed, 
set$_suspnd, 
set$_modeset, 


AX-11 Bliss-32 bo Eh pps 
CLIUTL.SRCJSETPROCES.8352;1 


Main routine 

Get process name 

Get all qualifiers and values 

Set them : 

Kernel mode routine to set dump flag 


Convert ASCII (hex) to binary 
Convert ASCII (decimal) to binary 
Set/clear privilege bits in bitmask 
Get value from CL 

See if qualifier is present 


Process privileges 
Pl window to PH 


Qualifier absent 
Qualifier explicitly negated 
Error est tying 
Priority not changed 
Priority changed 

Name not changed, 
Name changed 

Process not suspended 
Process resumed 
Process not resumed 
Process suspended 
Process mode changed 


3 
SETPROCES 18-Sep-1984 90:83:38 ae. Bliss-32 Mo Eh wipes Page 5 
v04-000 14-Sep-1984 12:09:16 CLIUTL.SRCJSETPROCES.852;1 (3) 
: 139 137 (1 set$_notpriv, ! Privileges not set 
; 140 138 1 set$_privset, ' Privileges set 
> (141 139 1 set$_ownproc; ! Qualifier only good for own process 
: sp 0140 1 
3; 14 0141 1! f 
> 144 B18 1 ! Declare the Literals for the different qualifiers 
: 145 0145 1! 
; 146 0144 1 LITERAL 
> (147 P0145 1 SEQULST (set$_,.,1,1, 
> 148 P g168 1 09.) 
369 P0147 1 (pr ority.), 
3 129 P0148 1 (name,), 
; 151 P0149 1 (resume, ) 
i 138 P0150 1 (suspend, ), 
5s P0151 1 (swap,) 
: 154 P Olde | (swapval,), 
3s 355 P0153 1 wait, 
: 156 P0154 1 (waitval), 
. oor P0155 (1 priv), 
; 158 P0156 1 (dump), 
; «4159 0157 1 (dumpval)); 
: 160 0158 #1 
; «(161 0159 1! th 
3 166 0160 1! It is convenient to declare one large vector containing all the data, 
5 % 0161 1 ! and give the separate pieces names that humans like. So, declare a 
; 198 bres : macro that will make those binds at the beginning of each subroutine. 
: 166 0164 1 MACRO 
: 167 M0165 1 BIND_DATA = 
: 168 M0166 1 BIND 
: 169 M0167 1 flags = data_buffer(0O) : BITVECTOR(32), 
; 70 M0168 1 pid = data_buffer i : VOLATILE, 
3 «6171 ™ 0169 1 priority = data_buffer ¢ ° 
: ite ™0170 1 new_name = data_buffer : VECTOR(C2), 
; VW mO171 1 enab_priv = data_buffer(5] : vECTOR(2), 
> 174 M0172 1 disab_priv = data_buffer(l? vECTORC2], 
; «175 mO173 1 mame_desc = data_buffer(9] ECTOR(2), 
: 1% 0174 1 name_buffer = data_buffer(11]: VECTOR(3);2%; 
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0 

: 178 0175 
; 7 8158 
: 180 17 
3 18) 0178 
3 ise 0179 
; «18 0180 
> «184 0181 
; 185 p16 
; «6186 018 
; «187 He 
>; 188 0185 
3; «6189 b156 
; 190 01 

: «(191 0188 
3 136 0189 
; 19 0190 
3 «194 0191 
; «6195 8136 
; 196 019 
: 197 0194 
3 «6198 0195 
: 199 0196 
; 200 0197 
; 201 0198 
: 202 0199 
3 eos 0200 
; 204 0201 
3 20 pee 
; 206 020 
; 207 0204 
; 208 0205 


GLOBAL ROUTINE set$process : NOVALUE = 
BEGIN 


'e4¢ 

Functional description 

SET command processor, 
process. 


Inputs 


Outputs 
None 


status, 
data_buffer : VECTOR(20) 
INITIAL(REP 20 of (0)); 
et_name(data_buffer); 
et_quals(data_buffer); 


-setSexit_status 
EN set_process(data_buffer); 


00000000" 00000 


a a a ee ne 


1 
1 


This is the routine for the SET PROCESS command. 
and sets various runtime parameters for a 


3 
-Sep-1984 00:45 AX-11 Bliss-32 v4.0- 
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It is called from the 
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Status return 

Buffer containing all the data 
initially clear 

Get the name of the process. 
Get all the quaiifiers. 


If no errors so far, 
set the new values. 


SETPROCES 
\v04-000\ 


SPLITS,NOWRT ,NOEXE ,2 
0C20) : 
LIBSCVT_HT 


PRVSSETPRI 
LISPRE 


- TITLE 
- IDENT 
-PSECT 


P.AAA: .LONG 
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SUSmzoz 
—Ommmmn—-~ << @ 

o-—-1 we 

sss @ 
vVamwnonow TAS 


cm 
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Zz 
wn“ 


SO i 
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<e 
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~PSECT 


-ENTRY 
MOVAB 


SCODES ,NOWRT ,2 


SE Toenocess Save R2,R3,R4,R5 ; 0175 
~B0(SP), SP : 


| K 3 
SETPROCES 16-Sep-1984 00:45 

| 704-000 1o-8e8= 188s 99: 
6E 0000" “CF ~=—s-:0050—s BF. s28 00006 MOvc3 
SE DD 0000E PUSHL 
0000v CF 01 FB 00010 CALLS 
SE DD 00015 PUSHL 
0000v CF 01 FB 00017 CALLS 

67 000000006 90 9 9001¢ LBC 
SE DD 0002 PUSHL 
0000v CF 01 FB 00095 CALLS 

04 O009A 1$: ET 


; Routine Size: 43 bytes, Routine Base: S$CODE$ + 0000 
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$c3¢ V4.0-7 


#80, P.AAA, DATA_BUFFER 


#1, GET_NAME 


#1, GET_QUALS 
SETSEXIT_STATUS, 


SP 
#1, SET PROCESS 
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0197 
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0201 
0202 


0205 
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: 210 0 06 1 ROUTINE get_name (data_buffer) : NOVALUE = i 
. wan 020 BEGIN i 
3 ig 0208 i 
BE Bice : 
; 1? 8 \} ; Get the process name and tuck it away to use later. i 
: i$ 0 i i Inputs 
3 8 \ DATA_BUFFER = contains all the data cells 
; 0 0 1 i Outputs 
3 1 8 1 : NAME _DESC will point to the process name i 
: § 8 Ys : PID will contain the process ID of the process to change ‘ 
: 224 0220 2 i 
: 228 8 $f 
: $59 $558 data_buffer : REF VECTOR; : 
BB ca 3 
; $9 0226 status, ! General status return : 
; 231 0227 desc : SBBLOCK(Cdsc$c_s_bin], ! General descriptor ‘ 
: 232 0228 iosb : VECTOR(C4,WORDI, ' Status block for GETJPI j 
3; 233 f434 jpi_list : SITMLST_DECL(ITEMS = 2); ! Item List for GETJPI ‘ 
: $3 eee : 
: 336 Og3¢ : Bind the data to names we can understand 
: 238 0234 2 bind_data; ; 
BEE 2 
> 261 0237 i Collect the process name, if specified. If no process name is : 
3 seg osae 2 specified, try a process id. : 
: 264 $526 $ Sinit_dyndesc (desc); ' Make the descriptor dynamic ; 
; 245 0241 2 pid = 0; ! Show that no PID found yet. i 
: 246 oseg 2 name_desc(1] = name_buffer; ! Point to process name buffer ; 
: $0 Soca 5 
: 269 Osea If the process name is given, also get the PID 
; af 0547 2 IF cli$get_value(ZASCID "PROCESS', desc)! Get the process name i 
; 26 0248 THEN ! If the process name exists, i 
: 27 S34 ; BEGIN ' convert it to a PID. i 
: 35 0291 i Set up the JPI item list to get the PID. 
: 257 P 0 34 " —- $ITMLST_INITCITMLST = jpi_list, 
; 258 0254 D = pis id, BUFADR = pid)); 
3; 259 P 0255 status = SGETJPIW(ITMLST = Foi List, ‘ 
; 260 P 0296 PRCNAM = desc 
; 61 3 ee 10SB = iosbS; 
3 -Status i 
3 re 38 THEN status = .iosb(0); i 
: 264 60 IF NOT .status 
3; 265 1 THEN SIGNAL(set$_writeerr, 1, desc, .status) 
3; 266 62 ELSE i 


H 3 
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: 267 0263 4 BEGIN 

; 268 64 4 CHSMOVE(. $ bidecSu, jengend -GoscldscSe_potnterd. name_buffer); 
> 269 65 4 name_desc(0) = .des¢Ldsc$w_lengthJ; 

; 0 08 & name_descl1] = name_buffer; 

3; eri 6 ND; 

, 27 o8 END 

3 (ar 8 

: 276 0 ! 

3 p a! If no process name, perhaps the PID was specified. 

s er 0 ig EL ! If no process name, 

; 78 8 74 BEGIN ' try for a PID 

5 79 75 IF cli$get_value(ZASCID ‘IDENTIFICATION’, 

; 280 0 6 desc) 

3; 281 027 THEN ' If we get a PID, 

3 ag 0278 4 BEGIN ! convert it to_a number 

; 28 0279 5 IF NOT (status = LibScvt_htb(.descldsc$w_length) 

; See 0280 5 .descldsc$a_pointers, 

> 285 0281 5 pid)) 

; 286 os e¢ 4 THEN SIGNAL(set$_invquaval, 2, 

; 387 0283 4 desc, %ASCID 'IDENTIFICATION') 

; 288 ogee 4 ELSE 

; $68 0285 5 BEGIN 

; 90 P 0286 5 SITMLST_INITCITMLST = jpi_Llist, 

; 291 P 0287 5 (ITMCOD = jpi$_pid, 

; soe P 0288 5 BUFADR = pid), 

; 2 P 8S55 5 (ITMCOD = 1918 _prenea. 

; 294 P0290 5 BUFADR = name_buffer, 

3 $32 P $69) 5 BUFSIZ = 20, 

: 296 0 3 5 RETLEN = name_desc(0])); 

3; evr P 0293 5 status = SGETJPIWC(ITMLST = Jpi_list. 

; 298 P 0294 5 PIDADR = pid, 

3 444 0295 5 10SB = iosb); 

; 300 0296 5 IF .status 

; 301 9297 5 THEN status = .iosb(0); 

3 4 0298 5 IF NOT .status 

; 30 5444 5 THEN SIGNAL(set$_writeerr, 1, desc, .status); 

3: 304 0300 4 3 

: 305 0301 3 END; 

; 306 B06 END; 

3 4 030 ! 

3 4 Bene If no PID specified, use the PID and name of the current process. 
: 310 if .pid EQL 0 

: 311 0307 THEN? 

: \¢ 0 85 BEGIN 

; 31 P 0309 SITMLST_INITCITMLST = jpi_List, ' Set up JPI List to get 
> 314 P 0310 (ITMCOD = jpiS_pid, ' the current process 
3 15 P 0311 UFADR = pid), ' PID and name, and 
; 1¢ P \ (ITMCOD = ipi8-prenan, ' stuff them into the 
; 3 P 031 UFADR = name_buffer, ! appropriate places. 
; 318 P 0314 BUFSIZ = 20, 

; 519 15 RETLEN = name_ escO))); 

Z 0 B 1 status = SGETJPIW(ITMLST = jpi_List, 

: 1 1: 10SB = iosb); 

: § H 3 IF status 

i Se 1 THEN status = .iosb(0); 
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00 


54 41 43 49 


54 41 43 49 


73 65 63 6F 


RETURN; 
END; 
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72 


24 


04 


49 


70 


If NOT .status 
out SIGNAL (set$_writeerr, 1, 


45 43 4F 52 0050 P.AAC 
aslanS?, SERS FAG 
ot tae ¢ 9 Bek 
54 4E 45 44 & 0060 P.AAE 
4 Hele 
ass 44 0070 P.AAr 
0000000" 00074 
54 4E 45 44 4 0078 P.AAG 
00 00087 
BOE OORE 0088 P.AAF 
at ae a 008C¢ 
20 69 8 4 00090 P.AAI 
Q10E000C 0009C P.AAH 
00000000* 000A0 
OFFC 00000 GET_NAME: 
5B 000000006 00 9€ 00002 
5A 000000006 00 9%€ 00009 
f C C2 00010 
04 AC OD Bate 
58 4 AQ YE 0001 
25 4 AQ 9E 00018 
9 € AO 43 OO1F 
AE 020E0000 8F 00 00023 
28 $4 +1 B8 B 
vB BB 
4 AE OF 
0000" CF OF 7 
si 
i Ba 
E 4 
03190004 a. & 
$ 4B 
C 4 
—E 7 
4 AE OF 
C AE OF 
4 AE OF 
? C B 
6A 07 FB ) 
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ZASCID ‘this process’, .status); 


-PSECT SPLIT$,NOWRT,NOEXE,2 
.ASCII \PROCESS\<0> 
TONG. peoepS? 
.ADDRESS P.AAC 
“ASCII \IDENTIFICATION\<0><0> 
«LONG 17694734 
-ADDRESS P.AAE 
“ASCII. \IDENTIFICATION\<0><0> 
.LONG 17694734 
SADDRESS P.AAG 
“AS CII \this groseee' 
“LONG 17694732 
“ADDRESS P.AAI 
.EXTRN SYSSGETJPIW 
-PSECT SCODES,NOWRT,2 
MOVAB eri $ce T VALUE, R11 
MOV SYS$GETIPIW, R10 
SUBL2 #44, SP 
MOVL DATA_BUFFER, RO 
MOVAB 4(ROJ, RB 
MOVAB 36(ROS, R? 
MOVAB asst 
MOVL #344 1636, DESC 
CLAL DESC+4 
CLRL (RB) 
VL — RO, 4(R7) 
PUSHAB DESC 
PUSHAB Pp 
CALLS ISGET_VALUE 
BLBC 
MOV i bibss Pai hit R 
MOVL 5 7 2h iy methdaed 
MOVL PTR)+ 
CLRO CS$sTRBLKPTRD )+ 
CLRO bt: P) 
PUSHAB 1088 
PUSHAB JPI LIST 
PUSHAB DEST 
CLRO = (SP) 
CALLS #7, SYSSGETJPIW 
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SETPROCES 
¥04~000 


i a  -COCt—Y 


‘Camere f Bs Ave 
$ PROCES 
/WO4-00 


1 
1 
| « TE OF Boies 
8 AE $F 1 g 
7E C 12C 
| : ae 1% 
| se $0 60 0 
6 1¢ a i 1 
1 2 E 130 
: 6 4 140 7$: 
0000 i f i 
1 OO 14 
00000000G 8F DD 0014 
00000000G 00 04 FB Oo tee 
04 00155 8$: 


; Routine Size: 342 bytes, Routine Base: S$ CODES + 0028 


4 54 AX-11 Bliss-32 V4 0-748 
4 :16 CLIUTL.SRCJSETPROCES.832;1 
CLRQ  =(SP) 
PUSHAB I0SB 
PUSHAB JPI_LIST 
CLRQ = = (SP) 
CLRL -(SP) 
CALLS #7, SYSSGETJPIW 
MOVL RO STATUS 
BLBC STATUS, 7$ 
MOVZWL 10SB, STATUS 
LBS STATUS, 8$ 
PUSHL STATUS 
PUSHAB P.AAH 
PUSHL #1 
PUSHL #SET$_WRITEERR 
CALLS #4, LIBSSIGNAL 


0325 


aims eect eneansess states inpassaiasinametinceteene 
| dD 4 

| SETPROCES 1e-3e0- 138% 90:43:36 AX-11 at LP V4.0-74 Page 13 
|v = 14-Sep-1984 12:09:16 CLIUTL.SRCJSETPROCES.B852;1 (6) 
ls 1 0 $ 1 ROUTINE get_quals (data_buffer) : NOVALUE = 

: ¢ 0 BEGIN 

: 8 ie 

; 5 0 Get all and validate all the qualifiers. If any errors, signal them. 
3 ¢ ! Inputs ; 

3 ; 0 ? DATA_BUFFER contains all the data cells. 

; 0 0 5 ! Outputs ; 

: 341 0336 ; FLAGS will have bits set to indicate what is to change. 

: tg 8 ? : PRIORITY will have the new priority. 
|; 34 & : NEW NAME will point to the new process name. 

: 4 8 9 ‘ PRIV will be the new privilege mask. 

: 5 0340 : 

; 346 0341 

; 347 Os pal : 

> 348 0 ! Bind the data buffer to names that humans Like. 

: $38 0344 : 

; 350 0345 

3 6S 0346 MAP 

3 $26 0347 data_buffer : REF VECTOR; 

3; 3 0348 

; 354 0349 LOCAL 

: $27 9329 status, 

3 336 035 gurpid. 

e Zor b326 josb : VECTOR(2) 

; 358 035 jpi_list : SITMLST_DECLC(ITEMS = 1), 

; 359 0354 desc : $BBLOCKCdsc$c_s_bin]; 

: 360 0355 

; 361 0356 : 

; $08 trH4 Bind the data buffer to names that are more understandable 

3 362 0359 : bind_data; 

; 365 0360 2 

; 366 0361 2! 

: 367 B08 2 ! Obtain the preqess ID of this process, It will be used to check that 
3 $08 Beez certain qualifiers are not requested inappropriately. 

: 370 P 0365 2 SITMLST_INIT(ITMLST = jpi_list, 

; 371 P 0366 (ITMCOD = jpiS_pid, 

; 37 P 0367 BUFADR = ourpid) 

i 3 p 0869 5 SGETUPIUCITMLST = jpi_tist 

; = st, 

: 375 0396 1088 = osB); 

; 376 0371 

3 77 Berg 

: 355 0374 5 | See if Logging i d 

3 ! See ogging is requested. 

: 380 0375 5 i seafftes Rise 

; «381 8376 flags(set$_log] = cli$present(ZASCID ‘LOG'); 

: a 037 

; HA : 

; «384 3 ! /PRIORITY=n 

; «385 80 : 

: 386 381 Sinit_dyndesc (desc); ! Make desc. Gynanic 
; 387 0382 2 IF cli$get_value(ZASCID ‘PRIORITY’, desc) i See if qualifier there 
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Flagstsers plore as 
OT LibScvt_dtb eene tdsc$w _length] ! 
fg eas dsc$a “pointers, : 
or 
My ty SIGNAL (set$ temauele 


BEGIN : 


AX-11 Bliss-32 V4.0-74 1 
CLIUTL.SRCJSETPROCES.8352;1 (6 


If not a good value, 
tell the user 


2, desc, ZASCID ‘PRIORITY') 


Perform bounds 


IF .priority GTR 31 ! checking, telling 
OR .priority LSS 0 i if yt of bounds 
THEN SIGNAL (sets _invquaval, 2, desc, %ASCID "PRIORITY') 
END; 
' 
/NAME = string 
iF clisget_ value(ZASCID ‘NAME’, desc) ! If a new name requested 
BEG! 


N 
IF .ourpid NEQ . 
THEN SI] NAL (sets pe 


ZASCID a dy 
wageteert name) = ' 
new_name 9 .desc lasesu length); : 
new_name(1] = .desc(dsc$a_pointer); 
Ay bh a ees» : 


together. 


om fi cli$present(ZASCID ‘SUSPEND'); 

-sta 

EN flags(setS_ suspend] = 

SE IF .status “EOL cli$ _negated 

EN flags(set$_resume] = 
cliSpresent(ZAsciD. SRESUME" ) 

N flags(set$_resume] = 


EP eer ee 


sta 
F 
H 
L 
H 
F 
HE 
| (omen 


atus = et Cerereat CHASCED *SWAPPING'); 
Status NEQ cli$_absent 


ee 
ze 

m 

2 


BEGIN 
a -ourpid NEQ .pid 
THEN SI U (sets. ownproc, 
ZASCID ; CMODSuAP® ); 


flags(set$_swap 
roe set$_ “suapval) = NOT 


-Status; 


Set the flag 
Point to the name 


Re-use the descriptor 


/SUSPEND and /RESUME are inverses of each other, and so are treated 
However, although there is a /NOSUSPEND, there is no /NORESUME. 


each Proxkaee iven, call the unsupported, undocumented routine 

PRVSSETPRIV, which will decipher the ASCII text given it (e.g. NOLOG) 

ene — or clear the corresponding bit in the two-longword privilege 
mask. 


eAILE cli$get_value(ZASCID ‘PRIVILEGES’, desc) 


BEGIN 
IF NOT (status = PRVSSETPRIV(desc, newpriv)) ; ; 
THEN SIGNAL (set$_invquaval, 2, ! Say it's invalid 


desc 
ZASCID "PRIVILEGES"); 
END; 
: Get the privileges to enable and disable. 
*  enab_priv(0) = .newpriv(0) AND NOT .oldpriv(0); 


F 4 

| SETPROCES 16-Sep-1984 90:83:38 AX-11 es ees of 
vs 14-Sep-1984 12:09:16 CLIUTL.SRCJSETPROCES.832;1 
Ee Beg, 

; 44? a4 i /CNOIRESOURCE_WAIT 

: 449 Quad status = cliSpresent(ZASCID "RESOURCE WAIT"); 

; 450 445 IF .status NEQ cli absent 

i Be fhe 

: re 0448 IF .ourpid NEQ .pid 

3 $2 Beee THEN SIGNAL (set$_ownproc, 

; 496 0451 ZASCID "CNOJRESOURCE_WAIT'); 

: 45 $26 flagsCset$_wait) =_1; 

: 458 045 flagslset$_waitval] = NOT .status; 

> 459 0454 END; 

ORE S, 

; 46 0457 i /PRIVILEGES = List 

> 464 0459 2 IF cli$present(ZASCID "PRIVILEGES" 

; 465 0460 THEN ao 

BOS ae 

: 468 bees 3 ~"oldpriv : VECTORE2), 

; 469 0464 ; newpriv : VECTOR(2); 

; 470 0465 IF .ourpid NEQ .pid 

; re Be68 3 THEN SIGNAL (set$_ownproc, 

473 O468 § ZASCID 'PRIVILEGES'); 

: 474 0469 YiagsCset$_priv] = 1; 

Pe BRA 

; rth pee Copy the current process privileges into local memory. 
: 479 0474 '  gldprivf[0) = newpriv(O) = .ctl$gq_procpriv(0); 

: 480 0475 3 oldpriv(1) = newpriv(1) = .ctl$gq_procpriv(1); 

. ce 

3 483 0478 : Then get all the privileges that were specified by the user. for 
$ 

3 i 

: 4 
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POPPIN <2 2 SS 4 OOOOCOOO 
GUN SSSHVEARUNVZOSRIFAR ~ 


INF 


250 
; Referenced LOCA 


ro 


59 54 
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59 54 


00 44 


00 00 


47 4€ 


50 41 
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52 
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00 


4F 


L1:0404 
symbol OURPID is probably not initialized 


4F 4C 
010E0003 
Bia} 
010E0008 
Bia) 
010E0008 
Bia} 
010E0008 
er 
B43 44. 
Paes had {2 
010E0004 
ii Oe 
ie 
" Roo8t 
0090009 ‘ 
“orto 
0000009 : 
4F 4E 5B 


18-sep-1986 
14-Sep-1984 


AND NOT .newpriv 
1] AND NOT .newprivl1 


0497 enab_priv(1 eworiv£1) AND NOT .old he 
498 disab s oriy ay" = votaor vt "A - 
499 sigh _privlid = .oldpriv 
500 END 

B20) 

206 ! 

8207 , /CNOJDUMP 

0505 atus = See pay *DUMP'); 

D208 «Status NEQ cli$_absent 

050 THEN 

0508 , 

0509 IF rpid NEQ .pid 

Bato THEN. SI NAL(setS” _ownproc, 

B2i¢ ZASCID "ate ); 

051 flagstsets. dump] = 

0514 flags(set$_ Alt -Status; 

0515 END; 

0516 

0517 RETURN; 

0518 : 
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-PSECT 


-ASCII 
on 
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: ESS 
-ASCII 
«LONG 


a 13:68: 


-ADDRESS 
ASCH 
: ADDR RESS P 
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QUALS: 


: 0326 
0354 


gre AAAS AS RT 


OFFC 00000 GET_ 
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ITMBLKPTR)+ 
LKPTR)+ 
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Pp 
YSSGETJPIW 
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CU eee 


| 
4 
SETPROCES rbese =1984 00:45:54 AX-11 Bliss-32 V4.0-74 
esos aR aet 1 90:38:36 CLIUTL.SRC SePMoces B82: 
5 1 FB 000SF ALLS #1, CLISPRESENT 
62 01 §§ 30 FB 460) okt Re #1 #1, (R2) 
14 AE 020000 F DO 0006 MOVL #34471936, DESC 
18 AE ps O06F CLRL = DESC +4 
146 AE 9F 000 PUSHAB DESC 
10 A? OF 07 PUSHAB P.AAL 
g 9¢ 4 7 CALLS 4% ph POSE TVA 
8 078 LBC. Ss«éRO,, 4 
E BISB2 #4. (R 
2 04 88 0007 2 #4, (R2) 
08 A2 9F 00981 PUSHAB 8(R2) 
iC AE pp 0084 PUSHL DESC+4 
43 1¢ ag C 88 7 MOVZWL ed -(SP) 
000000006 00 : Fe soe CALLS 3, t1BSCvT_oTB 
20 «A? fF 009 PUSHAB P.AAN 
OE 11 00098 BRB 3$ 
1F 08 Ad D1 O009A 1$: CMPL  B(R2), #31 
05 14 0009 BGTR es 
08 A2 05 OO0A TSTL (R2) 
11 18 OOOA BGEQ 6s. «4$ 
30 A7 9F OOOAS gs: PUSHAB P.AAP 
18 AE OF OOOAS 3$: PUSHAB DESC 
0 DD OOOAB PUSHL a" 
0077132A 8F DD OOOAD PUSHL #7803690 
69 04 FB 000B3 CALLS #4, LIBSSIGNAL 
146 AE 9F 000B6 4S: PUSHAB DESC 
3c = A?so9F«(00089 PUSHAB P.AAR 
68 02 FB OOOBC CALLS #2, CLISGET_VALUE 
26 50 £9 OO0BF BLBC 0; 6 
66 6— D1 900¢e CMPL OURPID, (R6) 
OA 13 000C BEQL 6«5$ 
48 A7 9F 000C7 PUSHAB’ P.AAT 
01 DD OOOCA PUSHL #1 
5A DD O00CC PUSHL R10 
69 03 FB OO0CE CALLS #3, LIBSSIGNAL 
62 08 88 00001 5$: BISB2 #8. (R2) 
a3 16 AE 3C 000D4 MOVZWL DESC, (RS) 
04 AS 18 AE dO 00008 MOVL DESC 4 4(R5) 
16 AE 0200009 ar v0 90000 MOVL 434471936, DESC 
58 Ni 9F OOOES 6S: PUSHAB P.AAV 
68 01 Fe 00EB CALLS #1, CLISPRESENT 
55 50 DO OOOEE MOVL RO. STATUS 
05 33 E93 OOF} BLBC STATUS, 7$ 
62 B 000F4 BISB2 #32, (R2) 
11 Q00F7 BRB 
000000006 8F 3 D| 00F9 7$: cHPL TATUS, #CLIS_NEGATED 
62 1 a8 1 é BISB2 #16, (R2) 
68 A? 9F 00105 BS: PUSHAB P.AAX 
68 Q1 FB 108 CALLS #i, f ISPRESENT 
0 0 01 BLBC —-_«RO. 
62 19 8 ot F BISB2 #16, (R2) 
78 «A? «(OF 00111 98: PUSHAB P 
8 Q1 FB 114 CALLS #i, CLISPRESENT 
g D0 00117 MOVL RO, STATUS 
000000006 &F 55 D1 OO1IA CMPL STATUS, #CLIS_ABSENT 


| ‘ 
SETPROCES 1b-se -1984 00:45:54 AX-11 Bliss-32 V4.0-74 
Sante aaah Pi Ser a a thet ts Pra tt Co 
1¢ 13 00121 BEQL «=s«d1'18 
| 66 gE D1 00123 CMPL OURPID, (R6) 
: 13 001 6 BEQL 108 
0088 C7? 9F 001 PUSHAB P.ABB 
1 0D 0010C¢ PUSHL #7 
A DD 001 PUSHL R10 
69 3 FB 001 CALLS #3, LIBSSIGNAL 
$2 40 8F 88 00133 10$: BISB2 #64, (R2) 
5 5 De 001 MCOML STATUS, RO 
62 01 07 : FO 0013A INSV. RO, #7, #1, (R2) 
0OAO C7 OF O013F 11%:  PUSHAB P. 
$8 gi FB 143 CALLS #1, CLISPRESENT 
0 D 148 MOVL RO, STATU 
000000006 &F 55 D1 0014 CMPL STATUS, #CLIS_ABSENT 
1¢ 13 00150 BEQL 13$ 
66 6— 01 00132 CMPL OURPID, (R6) 
08 13 0015 BEQL 12$ 
ooBc C7? «OF 00157 PUSHAB P.ABF 
01 DD 00158 PUSHL #7 
5A 0D 0015p PUSHL R10 
69 03 FB 0015F CALLS #3, LIBS$SIGNAL 
01 =A2 01 88 00162 12$: BISB2 #1. 1(R2) 
50 55 D2 0166 MCOML STATUS, RO 
62 01 09 50 FO 00169 INSV. RO, #9. #1, (R2) 
0000 C7 OF 0016 13$ PUSHAB  P. 
68 01 FB 017 CALLS #1, CLISPRESENT 
03 50 E 0017 BLBS RO, 14$ 
0080 31 00178 BRW 1 
66 6€ 0100178 14$: CMPL OURPID, (R6) 
0B 13 0017E BEQL 15$ 
00ES C7? 9F 00180 PUSHAB P.ABJ 
01 DD 00184 PUSHL #71 
5A DD 00186 PUSHL R10 
69 03 FB 00188 CALLS #3, LIBSSIGNAL 
01 A2 04 88 00188 15$:  6ISB2 #4. 1(R 
50 000000006 00 00 0018F MOVL CTL$GQ PROCPRIV, RO 
04 AE 50 00 00196 MOVL RO, NEQPRIV 
0c Ar 50 D0 0019A MOVL RO. OLDPRIV 
50 000000006 00 00 O19E MOVL  CTL$GQ PROCPRIV+4, RO 
08 AE 50 DO OO1A MOVL RO, NEQPRIV+4 
10 AE 50 DO 00149 MOVL RO, OLDPRIV+4 
14 AE 9F OOIAD 16$: § PUSHAB DESC 
OOF8 C? 9F 001B0 PUSHAB P.ABL 
es 08 FB 0184 CALLS e CL ISGET_VALUE 
£ 1B7 BLBC —E—saRO; 
04 AE SF OO1BA PUSHAB NEWPRIV 
18 AE 9F 001B PUSHAB DESC 
000000006 99 9 FB O01C CALLS #2, PRVSSETPRIV 
5 dO 001C¢ MOVL 
E0 5 f 1CA BLBS STATUS, 16$ 
010c «= C?_—s« SF «000d PUSHAB P.ABN 
18 AE 9F 00101 PUSHAB DESC 
DD 00104 PUSHL 
0077132A B&F DD 00106 SHL #7803690 
69 04 Fe 1p¢ CALLS #4, LIBSSIGNAL 
64 04 «AE Oc AE CB OO1E1 17$:  BICL3 OLDPRIV, NEWPRIV, (R4) 
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4 
S$ JPROCES $~Sep-1984 9: 45: 54 AX-11 Bliss- 32 v4 Page 20 
v64-0 -5ep-1984 & CLIUTL.SRCISETPROCES. 4 2:1 (6) 
04 AG 8 A 10 AE CB QO1E7 ICL3. OLDPRIV+4, NEWPRIV+4, 4(R4) : 0497 
$3 of Ar 4 AE (CB tet bieLs NEWP | , OLOPRIV, (RS) : 498 
046 =A AE 8 AE a) 1F BICL3 NEWPRIV+4, OLDPRived, 4(R3) + 04 

” ; FB ep eet Chis. at ec ispresent . 

D MOVL RO. STATU : 
000000006 &F 33 D4 0 05 CMPL TATUS, #CLIS_ABSENT + 0506) 

bh 6E Di 0020 CMPL OURPID, (R6) : 
08 13 3 11 BEQL 198 : rl 
oe toe angle pu gtn Hb 
A DD 00219 PUSHL R10 : 
69 03 FB 0021B CALLS #3, LIBSSIGNAL ; 
01 A2 08 88 OO21E 19$:  BISB " ) > 0513) 
62 01 0c 55 FO 00 3 INSV STATUS, #12, #1, (R2) : 0514) 
04 00227 208: _—s RET : 0518. 


; Routine Size: 552 bytes, Routine Base: S$CODE$ + 0181 
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SETPROCES 1b-Se -1984 00:45:54 AX-11 Bliss-32 V4.0-74 Page 1 
v50-000 1e788p-198e 19:08:16 — Lekiure’sneisevpnoces 682.1 a (5) 
3 5 0519 1 ROUTINE set_process (data_buffer) : NOVALUE = 

3 $ 0520 BEGIN 

: 3$8 g852 $i 

. ! 

3 2 , 82 § } Set all the parameters specified, signalling any errors. 

3 S31 $8 5 ! Inputs 

3; % ¢ 05 $ ‘ FLAGS will have bits set to indicate what is to change. 

; > 05 ! PRIORITY will have the new priority. 

3 res 0528 ' NEW NAME will point to the new process name. 

: 335 Be , PRIV will be the new privilege mask. 

F ; $2 1 ' Outputs 

; 8 05 ; : None 

; 539 05 es 

; 540 0534 

> «541 0535 MAP 

3 2e8 0536 data_buffer : REF VECTOR; 

> 54 0537 

> 544 0538 LOCAL 

; 545 0539 status; 

; 546 0540 

3; 547 0541 ‘ 

; 308 O26 Bind the data buffer to pleasant, simple names that humans can enjoy 

3 390 0544 bind_data; 

3 33) 0545 

; 23¢ 0546 ! 

3 D> 0547 ! /PRIORITY = n 

3; 554 0548 ‘ 

3 6330 0549 If .flagsCset$_priority] 

; 556 0550 THEN 

3s 5357 0551 BEGIN 

> 558 b228 LOCAL : 

; 559 055 want_priority; 

; 560 0554 

; 561 P0555 4 IF NOT (status = S$SETPRI(PIDADR = pid 

; 266 0556 4 = priority)? . 

; 56 0557 THEN SIGNAL(set$_writeerr, 1, ZASCID ‘process priority’, 

3 re 3238 -status) 

; 566 $380 ! If the eriority requested is greater than the base lag A and the process 
3; 567 0561 ' does not have ALTPRI privilege then SSETPRI will only set the priority to the 
; 568 8268 ' base. If this is the case or the user requested a log then we need further 
: 569 56 ! information on the process to tell the user. Since we cannot be sure if the 
: 4 g2ee wanted priority was set until after the $SGETJPIW we must do it in all cases. 
; 57 05 ELSE 

3 rg 0367 4 BEGIN 

: 574 268 4 LOCAL 

3 379 28 4 iosb : VECTORE4,WORD) 

; 376 370 4 jpi_list : SITMLST_DECLCITEMS=2); 

3 378 276 4 want_priority = .data_buffer(2); ! Save the priority requested 
3 380 7 ? ! Generic value because of BIND 
; 581 0575 4 ! Set up the JP] item List to get the new process priority. 
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16-Sep-1984 00:45:54 AX-11 Bliss-32 V4.0-74 
10238871 38e 19:63:46 tetiute sre SETPROCES.B52;1 


suena rae 


8 57 ! 
¢ P 37§ SITMLST_INITCITMLST = jpi_list, 
28 (ITMCOD = pts. rib, BUFADR = priority)); 
5 p 057 status = SGETUPIWCITMLST = ipi list, 
4 P 0 PIDADR = pid, 
4 581 10SB = iosb); 
8 5 § IF .status 
89 5 THEN status = .iosb(0); 
90 280 IF NOT .status 
91 0585 THEN SIGNAL(.status) 
ie ne epee 
594 586 i Display correct message 
595 0589 ! ° 
238 S354 Bet t iority GTR iori ' If the desired iori 
.want_prior -priorit ' the desired priority was not 
a35 0398 by SIGRAL(set$ nopriod ' ! set then ALTPRI not set 
600 0594 IF .flagsCset$_log] ' If logging requested 
601 0595 THEN SIONAL (setS. or ioset, 3, name_desc, 2 d. prior itys: 
60 0596 END; 
60 0597 ND 
604 0598 
605 0599 
606 0600 ! 
607 0601 ! /NAME = string 
608 Bone ! 
609 060 


if .flagsCset$_name) 
THEN 


BEGIN 
IF NOT (status = SSETPRN(PRCNAM = new_name) ) 
THEN SIGNAL(set$_writeerr, 1, ! Signal if an error 
ZASCID ‘process name’, 

-Status) 
F .flagsCset$_log) 
IGNAL (set$_nameset, 1, new_name); 


ELSE | 
THEN S 


or if /LOG 


/ SUSPEND 
if .flagsCset$_suspend) 
THEN 


MOPIPOMONOPUNY 3 ee 
VEWN—“ODOONOULWN— 


SSeNo 


BEGIN 
IF NOT (status = SSUSPND(PIDADR = pid)) 
THEN SIGNAL (set$ notsuspnd. 2, name_desc, .pid, 


-Status 
ELSE IF {least sets. tog) 
= SIGNAL (set$_suSpnd, 2, name_desc, .pid); 


If a prqoten. 
signal it 


If /LOG, signal it 


/NOSUSPEND or /RESUME 
if .flagslset$_resume) 
HEN 

BEGIN 
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3 


/CNOJRESOURCE_WAIT 
if .flagsCset$_wait) 
THEN 


SERS 


N 4 
SETPROCES 16-Sep-1984 45:54 AX-11 Bliss-32 V4.0-74 Page 3 
yo4-000 ere 8be P8i83i%g | Heer OsRe SSE Fenders “a$2.1 oe 53 

639 633 IF NOT (status = SRESUME(PIDADR = pid)) 
640 634 THEN SIGNAL (set$_n tie » NMame_desc, .pid, .status) 
641 635 ELSE IF .flags © log 
64 6 $ THEN SIGNAL (set reSumed, 2, name_desc, .pid); 
64 6 END; 
ges S39 5 
erg Ose /TCNOJSWAP 
648 ots IF Sa ee 
ep BE Ie 
651 645 IF N OT (status = SSG TSUACSUPFLE = SiggeCeets swapval)) ! If an error, 
$26 Boag THEN” SIGNAL (set$ writeerr, | » RASCID ‘swap mode’, ! signal it 
654 ae ELSE IF .fla agst sets, log] 
655 0649 THEN SIGNAL (Sset$ _modeset, 1, 
656 0650 (IF TflagsCset$ guapyal) 
657 0651 THEN tA CID ‘NOS 
658 06 ; ELSE ZASCID ‘SWAP')); 
659 06 END; 

0654 

0655 

06 | 

06 

0658 


DPA 


0659 


BEGIN 
IF NOT (status = SSETRWM(WATFLG = .flagsCset$_waitval])) 
THEN SIGH ‘p08? writeerr, Te ! Signal if a problem | 


Sesee 
Ono 
3 


0 ZASCID ‘resource wait mode’, 
gre bees ELSE IF . flags sets log) ! Signal if /LOG 
ags(se 0g ! Signa 
ore b666 THEN SIGNAL (sees _modeset, 1, 
67 Feu aneris sets *waitval) 
674 0668 "NORE SOURCE WALT 
675 0669 vse Tage ip "RESOURCE _WAIT')); 
O76 0670 END; 
67 0671 
678 9h ! 
679 bee ' /PRIVILEGES = List 
680 74 ' 
681 0675 If .flags(set$_priv] 
oss 16 THEN 
7 BEGIN 

684 28 
685 067 ! 
686 : ; Enable the new privileges. 
688 -enab_priv wee ! If anything to enable, 
689 § -enab pe vito} NE . 
690 F THEN my ohy = $SeTPRV (PRVADR s = grab. priv, ! do it and save the status, 
691 a 5 PRMFL 
69 ENBELG = 15 

ELSE status = 1; ! otherwise set success. 
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If .disab_priv([0) NEQ 0 ! If anything to disable, 


| 5 . : 
“¥b4-000°° Seog Q06585 YG SUNS aaRo. Page 5) 


, 696 Noelia 1] NEG 0 
13; 697 F 069 oneN SSET eee s giseb. priv, ' do that as well. for 
l; 698 P 069 = ' the status, you can a ~ te 
i; § 633 ENOFL = 05; i remove privilege. 

; 701 95 if NOT .status ; H it it failed this time, then 
3 f ¢ } ag SIGNAL (set$_notpriv, .status) ! signai it 

a i 98 BEGIN } NOTALLPRIV is success, so 
; 705 99 & if .status EQL ss$ enptetiorty pet ionel it as an error 

3 £38 4 THEN § SIGNAL (ss gstzet no setsps'* AND &X"FFFFFFFE’) 

; 70 701 4 FL3e If .flag ! Signal a real success if 
; 708 7? § SIGNAL (sets yo ! logging: requested 

; 709 7 END; 

: 710 7 END; 

3 ii 705 

3 ag 7 ' 

: 71 70 ! /TNOJDUMP 

3; 716 0708 } 

; 715 0709 If .flags(set$_dump] 

3 rg Bere THEN 

3; 7i 713 if .flagsCset$_dumpval) 

; 718 orig THEN 

3; 719 071 BEGIN 

3; 720 P 0714 SCMKRNL( ROUTIN = set_dump 

: 721 0715 ARGLST = UPLIT(1,1)) 

: 7 ‘ 0716 SIGNAL (set$_modeset, 1, %ASCI 1b *"DUMP'); 

: Te 071 END 

3; 726 0718 ELSE 

3; 725 0719 BEGIN 

ME $ P bo5¢ SCMKRNL( ROUTIN = set_dump 

; F 0721 ARGLST = UPLTT(1,6)); 

; 728 07 : SIGNAL(set$_modeset, 1, %ASCIO "NODUMP"); 

; 729 07 END; 

; 730 0724 

s 731 37S2 RETURN; 

; 732 726 1 END; 


-PSECT SPLITS,NOWRT,NOEXE ,2 


7 69 72 6F 69 72 70 20 73 73 65 63 6F 72 4 oo 1Ds P.ABU: .ASCII \process priority\ : 
010E0010 Dies P.ABT: .LONG peri ae 3 

00 009°" 1€8 “ADDRESS P.AB $ 

65 6D 61 6€ 20 73 73 65 63 6F pice P.ABW: .ASCII 1PCBESE name\ 3 
10E000 ar P.ABV: “LON : 

09 se . 1f aril \c $ 

00 00 00 65 64 6F 6D 20 70 61 ; P.ABY: .ASCII \siap "ggde\<0><0><0> ; 
434494 3 P.ABX: LONG i 

00 * 0021 -ADDRE - 

00 00 50 41 57 53 4F 4 14 P.ACA: .ASCII \NOSWAP\<0><0> 3 

1 4 if P.ABZ: .LONG 17694726 a 

0 ' ¥ -ACA 3 

50 41 4 P.ACC: .ASCII \SWAP\ : 

010E0004 00228 P.ACB: “LONG 17694724 3 
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/60 20 76 69 61 77 20 65 63 72 75 gf eee. 


54 49 41 57 SF 45 43 52 SS 4F 53 45 52 4 


a. 


ust Bee 


: 


Sep-1 
se 


P.ACE: 
P.ACD: 
e pace: 


P.ACF: 


Be 1:09:16 


45:5 
9:1 


54 AX-11 Bliss-32 V4.0 oi 
CLIUTL.SRC SETPROCES .8 2:1 


«ADDRESS P.ACC 


ASCII 
«LONG 


- ADDRESS 


eASCI! 
«LONG 


\resource wait mode\<0><0> 
17696738 

\NORESOURCE _WAIT\<0> 
17694735 


eADDRESS P.AC 


F 
00 00 54 469 41 57 SF 45 43 52 SS GF 53 a) 0 $4 P.ACI: ASCII \RESOURCE_WAIT\<0><0><0> 
1950000 74 P.ACH: .LONG 17694733 
0 78 “ADDRESS P. ACI 
00009001, ise? O27C P.ACJ 
0 8 P-ACL “48 at \bure 
0006 0288 P.ACK: .LONG 1 Ya) 26 
00000000 a00000" 0590 P.ACH: “LONGe dor 
00 00 SO 4D 99 “4 4F 4E 060298 P.ACO: ASCII \NODUMP\<0><0> 
010E0006 O02A0 P.ACN: .LONG 17694726 
00000000" 002A4 “ADDRESS P.ACO 
.EXTRN SYSSSETPRI, SYSSSETPRN 
XTRN SYSSSUSPND, SYSS$RESUME 
“EXTRN SY SSSETSUM. SYSSSETRWM 
SEXTRN SYSSSETPRV. SYSSCMKRNL 
-PSECT SCODES$,NOWRT,2 
OFFC 00000 SET_PROCESS: 
-WORD Save R2,R3,R4,R5, gs R7,R8,R9,R10,R11 
5B 000000006 8F D0 0000 MOVL  &#SETS_WRITEERR, 
SA 0000' CF 000 MOVAB P.ABT> R1 
59 000000006 60 9€ 0000 MOV LiBSS{GNAL. RO 
3 24 C2 0001 SUBL2 #36, SP 
04 AC 00 00018 MOVL DATA_BUFFER, R2 
« 04 A2 99E 000IC MOVAB 4(R2J, R3 
5 14 A2 9E 00020 MOVAB 20(R25, R7 
56 1¢ A2 YE 00024 v 8(R2). R6 
55 24 Ad 9E 909 8 MOVAB 36(R2). RS 
6C 62 0 E1 0002C¢ C #2, (Rd), 5S 
E D4 000 CLRL Os = §P) 
08 A2 DD 000 PUSHL 8(R2) 
a3 D4 99 CLRL. = =( SP) 
53 0D PUSHL R3 
000000006 00 Te 00 9 CALLS #4, SYSSSETPRI 
54 0 pO 00 40 VL — RO,_: STATUS 
0D 4 E8 0004 LBS STATUS, 18 
4 DD 0004 PUSHL STATUS 
A DD 0004 SHL R10 
Qt DD 0004A PUSHL #1 
B DD 0004C PUSHL R11 
69 04 FB QO4E CALLS #4, LIBSSIGNAL 
61 11 1 BRB 7 
58 08 A2 00 00 3 1$: MOVL 8(R2), WANT PRIORITY 
50 E : 0 MOVAB Pl bist $$iT 
BO 03090004 8F DO O005A MOVL #50921476, ($51 TROL KPTR) + 


* 


rae 
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0539 


0519 


aus 


000000006 


08 


30 
000000006 


37 


000000006 


OF 


rf 
' 


80 


A2 


08 


9 000000006 


62 


08 


000000006 


oc 


14 


oc 
000000006 


P 000000006 


62 


VINO NMP & ICO} 


OWIO FMW FP OOMOW'G POO 


o— 
MAMIE & OPIN NU 0 FDS BE POS TW TWD SO 


SO—OWDOWW: MNO NOOO > 


1 
1 
6 
C 6 
C 6 
f 69 
F 6C 
D4 of 
dD 1 
D4 te 
F 07 
Dd o7c 
§ O7F 
i Hits 
DD 00089 
11 00088 
D1 00080 
15 00091 
dD 4644 
FB 494 
11 Q009C 
E1 000 
dD Baa 
DD OOOA 
0D OO0A7 
DD OO0A9 
DD OOOAB 
FB 00081 
34 00084 
F 00088 
FB 0008 
DO O00C 
E8 000C 
DD 000C8 
9F QOOCA 
DD O00CD 
DD OOOCF 
FB 00001 
11 00004 
3 00006 
F eyyee 
DD 00000 
DD OO0DF 
Ht Hee 
04 OOEC 
DD OOOE 
FB OOOF 
DO OO0OF 
ES OQOOFA 
DD OOOFD 
DD OOOFF 
DD 00101 
DD B88 
DD 0010 
‘¢ 1 
1 1 
E1 0011 


2s: os 
3$: CMPL 


4$: 
5$: Bas 
6$: 8B 


7$: 


9$: 


WANT_PRIORITY, 8(R2) 


#SETS NOPRIO 
, LIBSSIGNAL 


#1, (R2), 7$ 

8(R2) 

(R3) 

a 

#SeTs PRIOSET 
LTGSS1GNAL 

33° (R2), 9$ 


12(R2) 
#i, 4 sr i 


1 
#4, LIBSSIGNAL 


$F se). 9$ 
12(R2) 


4 
ETS_NAMESET 
an LTBSSIGNAL 
(R2), 


-(§P) 

R3 
a, $YSSSUSPND 
RO, STATUS 
StAtUs, 8s 
STATUS 

(R 
R5 
> 
gpers NOTSUSPND 
{ LTB$S1GNAL 
#1, (R2), 118 
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« 
| SET es ibese “19 45:54 AX-11 Bliss-32 V4.0-74 Pa 7 
Wbec006 a tS 99 09:16 CLIUTL.SRCJSETPROCES.B32:1 - (3 
DD 00114 PUSHL (R3) 3 0624 
DD 116 PUSHL R : 
DD 0011 PUSHL # : 
000000006 BF DD OO1IA PUSHL  #SETS SUSPND : 
| 9 FB 1 CALLS #6, LTS SIGNAL : 
37 62 4 €1 00103 11$:  6BC #4° (R2), 138 : 9630 
| D4 001 CLAL «= §P) + 063 
0D 00129 PUSHL R : 
000000006 90 F 91 CALLS #2, SYSSRESUME : 
4 0 1 MOVL R TAT : 
13 4 €8 001 LBS STATUS, 12$ : 
DD 01 PUSHL STATUS + 0634 
§ DD 0013A PUSHL : 
DD 0013¢ PUSHL : 
2 DD 001 E PUSHL #2 : 
000000006 8F DD 0014 PUSHL aseTs NOTRE SUMED : 
69 ; FB 00146 CALLS #5, LIBSSIGNAL 3 
13° 11 00149 BRB : 
OF 62 01 €1 00148 12$: BC #i, (R2), 13$ + 0635 
$3 DD O014F PUSHL (R$) + 0636 
DD 00151 PUSHL ; 
02 DD 00155 PUSHL #2 ; 
000000006 8F DD 001 PUSHL #SETS$_RESUMED : 
69 04 FB 00138 CALLS #4, LIBSSIGNAL : 
3F 62 06 €1 0015E 138: BBC #6, (R2), + 0642 
7E 62 01 07 EF 0016 EXTZV #7. #1, (R2), =(SP) + 0645 
000000006 00 gi FB 0016 CALLS #1, SYSSSETSWM ; 
54 0 dO 0016E MOVL RO. STATUS : 
OE 54 €8 00171 BLBS STATUS, 14$ : 
54 DD 00174 PUSHL STATUS : 0647 
28 AA 9F 00176 PUSHAB P. + 0646 
01 DD 00179 PUSHL #1 : 
5B DD 00178 PUSHL R11 : 
69 04 FB 0017D CALLS #4, LIBSSIGNAL ; 
iF 11 00180 BRB : 
1B 62 01 3 00182 14$: BBC #i, (R2), 17$ + 0648 
62 95 00186 TSTB = (RB) > 0650 
06 18 00188 BGEQ 15$ ; 
50 38 AA H 0018A MOVAB P.ABZ, RO ; 0651 
04 1 00186 BRB 16$ ; 
50 44 AA 9E 00190 15$:  MOVAB. P.ACB, RO > 0652 
50 DD 00194 16$:  PUSHL RO : 
1 DD 0196 PUSHL #1 + 0649 
000000006 8F DD O19 PUSHL #SET$_MODESET : 
69 3 FB 19 CALLS @ LTB$S1GNAL F 
40 01 Ag E O14) 17$: BLBC  1(R2), 21 : 0658 
7E 2 1 EF O01AS EXT2v. #9, #1, (R2), -(SP) : 0661 
000000006 00 1 FB OOIAA CALLS #1, SYSSSETRUM ; 
4 0 OD 0181 MOVL 0 eld | § 
OE 4 €8 00184 BLBS STATUS, 18% ; 
54 bb 0187 PUSHL STATUS > 06 
60 AA 9F 001B9 PUSHAB P.ACD > 0662 
1 DD 0018C PUSHL #i ; 
B OD O18 PUSHL R11 : 
69 4 FB 1C CALLS #4, LIBSSIGNAL ; 
0 11 001C¢ BRB 21§ ; 
1¢ 62 1 €1 001C5 18$: BBC #1, (R2), 218 > 0665 
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—SETPROCES 16-Sep-1984 00:45:54 AX-11 Bliss-32 V4.0-74 Pa 8 ik 
ace o86 12-808-1 382 90:38:46 CLIUTLSRCISETPROCES .B 2:1 ” (3 iN 
| 06 $2 09 €1 001C9 BBC #9, (R2), 198 : 0667 
oan ee a peo 
50 0090 CA 9€ 103 19$:  MOVAB P.ACH, RO + 0669 
0 DD 00108 20$:  PUSHL RO : 
1 DD OO1DA PUSHL #1 > 0666 
000000006 8F DD 001D PUSHL #SETS MODESET : 
9 3 FB IE CALLS #3, LIBSSIGNAL ; i 
63 62 A €1 O001E5 218: BC #10 (R2), 30$ : 0675 
67 D OIE TSTL (R75 + 0682 
5 1 1EB BNEQ 22$ : 
OE Roa aM” 5 
7E 1 7D OiFe 228: mOVd #1, =(SP) + 0686 
7 DD OO1F PUSHL ; 
01 OD 001F7 PUSHL #1 : 
000000006 00 4 FB O001F9 CALLS #4, SYSSSETPRV : 
54 9 DO 00 09 MOVL RO, STATUS : 
03 11 0020 feats] 4 3; 0684 ; 
54 01 09 0205 38: MOVL #1, STATUS : 0687 
66 05 00208 248: TSTL (R6) : 0689 
05 12 O020A BNEQ 25$ 3 i 
06 Ab D5 0020C TSTL (RO) + 0690. 
OE 13 0020F BEQL ; i 
7E 01 7D 00211 25$: mOVd #1, =(SP) : 0693 i 
56 DD 00214 PUSHL  R6 ; i 
7E D4 00216 CLRL. = (SP) : i 
000000006 00 4 FB 00218 CALLS #4, SYSSSETPRV ; : 
0D 4 €8 OO21F 26$:  BLBS STATUS, 27$ : 0695 i 
54 DD 00222 PUSHL STATUS : 0696 ; 
000000006 BF DD 00224 PUSHL #SETS$_NOTPRIV : | ; 
69 92 Fe 32 sh CALLS 4 LTBS$SIGNAL : i 
00000681 =F 34 p1 3 F 27%: CPL STATUS, #1665 ; 0699 
7E 0680 af 3¢ 02 8 MOV ZL #1964, -(SP) ; 0700 
09 62 1 €1 00 3? 28$: BBC #1, (R2), 30$ : 0701. i 
000000006 8F DD 00243 USHL #SET$_PRIVSET > 0702 | i 
69 01 FB 00249 298: CALLS #1, LIBSSIGNAL ; i 
37 62 OB £1 0024C 30$: BBC wii, (R2), 338 : 0709 | ; 
15 62 0c 3 0250 BBC #i2, (Ro). 31$ : 0711. : 
ttt tr oF $0 4 PUSHAB ci P : 0715 
000000006 00 65 fe 6 sc CALLS FE aS CRKRNL : ; 
O0A4 cA Hi 9 63 PUSHAB A : 0716 
Sp O8V fF 3 ag PUSHAB SET DUMP : 0721 
000000006 00 ts 02 FB 9 tt CALLS. #2“ SVSSCRKRNL Foe 
000000006 $ BD 8 is ss Pus asers MODESET : 
69 03 FB 00284 CALLS #3, LTBSSIGNAL 3 i 
04 00287 33$: RET : 0726. 


; Routine Size: 648 bytes, Routine Base: S$CODE$ + O3A9 


ibe 


seam ts isite §— Letibt OsRe 


Se iproces 7882: 1 


roe 


; Routine Size: 


; 755 


bese 1984 754 AX-11 Bliss-32 v4.0 Pa 0 I! 
1a-sep-19 4 ws :16 CLIUTL.SRC SETPROCES. a2, ;1 ” aS 
727 1 ROUTINE set_d (mode) : NOVALUE = 
ee geen 
g , Functional description 
7 § i This routine sets the dump mode. It can oniy affect the current 
f ? } process. 
735 i Inputs 
f mode - 1 or 0 for mode on or off 
7 i Qutput 
7 4 : vo ene 
0740 : 
o749 
Bez ctl$gl_phdl[phd$v_imgdmp) = .mode; 
0745 return; 
0746 
0747 1 END; 
0000 00000 SET_DuMP: 
«WORD Save wm : 0727 
50 000000006 00 00 00002 MOVL ae PHD, RO 3 0743 
01 05 06 aC £0 00009 INSV , aS, #1, 54(RO) 3 
04 00010 RET ; 0747 


17 bytes, Routine Base: S$CODE$ + 0631 


0748 1 


pee ee atl "pe tiie ce ee ee 2 ee F rian , : : al 


5 
_SeTPRocES Ld $ep-1984 90:43 54 AX-11 et -32 v4.0-7 Page 31 
14-Sep-1984 :16 CLIUTL. SRC? SETPROCES. 8 2;1 (9) 
: rel ors 1 END 
; 758 750 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS 680 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
; SCODES 1602 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Ger ore Bi ee Speed ies | eae we Syabel§ ccoccece Pages Processing 
3 File Total ioaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIL1B.L32;1 18619 43 0 1000 00:01.8 
; Information: 1 
3; Warnings: 0 
3; Errors: 0 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SETPROCES/OBJ=OBJ$:SETPROCES MSRC$:SETPROCES/UPDATE=(ENHS$: SETPROCES) 
; i 1602 code + 680 data bytes 


Elapsed i tees 01:46.8 
Lines/CPU Min: 1447 
Lexemes/CPU-Min: 22162 
Memory Used: 228 pages 
Compication Complete 
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